home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / WINER.ZIP / NETCHECK.BAS < prev    next >
BASIC Source File  |  1992-05-13  |  1KB  |  57 lines
  1. '*********** NETCHECK.BAS - identifies which network is running
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6. '$INCLUDE: 'REGTYPE.BI'
  7.  
  8. DIM SHARED Registers AS RegType
  9.  
  10. DECLARE FUNCTION NWThere% ()
  11. DECLARE FUNCTION BVThere% ()
  12. DECLARE FUNCTION MSThere% ()
  13.  
  14. 'NOTE: Do not change the order in which these tests are performed.
  15.  
  16. PRINT "I think the network is ";
  17.  
  18. IF NWThere% THEN
  19.   PRINT "Novell Netware"
  20. ELSEIF BVThere% THEN
  21.   PRINT "Banyon Vines"
  22. ELSEIF MSThere% THEN
  23.   PRINT "Lantastic or other MS compatible"
  24. ELSE
  25.   PRINT "Something I don't recognize, or no network"
  26. END IF
  27.  
  28. FUNCTION BVThere% STATIC
  29.  
  30.      BVThere% = -1
  31.      Registers.AX = &HD701
  32.      CALL Interrupt(&H2F, Registers, Registers)
  33.      AL = Registers.AX AND 255
  34.      IF AL <> 0 THEN BVThere% = 0
  35.  
  36. END FUNCTION
  37.  
  38. FUNCTION MSThere% STATIC
  39.  
  40.   MSThere% = -1
  41.   Registers.AX = &HB800
  42.   CALL Interrupt(&H2F, Registers, Registers)
  43.   AL = Registers.AX AND 255
  44.   IF AL = 0 THEN MSThere% = 0
  45.  
  46. END FUNCTION
  47.  
  48. FUNCTION NWThere% STATIC
  49.  
  50.   NWThere% = -1
  51.   Registers.AX = &H7A00
  52.   CALL Interrupt(&H2F, Registers, Registers)
  53.   AL = Registers.AX AND 255
  54.   IF AL <> &HFF THEN NWThere% = 0
  55.  
  56. END FUNCTION
  57.